$TITLE	Test calculation with the MCP solver

$include mrttest.inc

$INCLUDE mrtmcp

ty(i,r)   = 0;
ti(j,i,r) = 0;
tf(f,i,r) = 0;
tx(i,s,r) = 0;
tm(i,s,r) = 0;
tg(i,r)   = 0;
tp(i,r)   = 0;

SOLVE GTAP USING MCP;

parameter	prices	Equilibrium consumer prices;

prices(r,"mcp") = pc.l(r);

file sol /mrt.sol/; sol.ap=1;
put sol;
$batinclude gams2txt prices
